home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / matrix.arc / M_TRANSP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-01-13  |  4.0 KB  |  20 lines
  1. static char *sccsid = "@(#)m_transpose.c    4/5/82 (U of Maryland, FLB)";
  2.  
  3. #include "mat.h"
  4.  
  5. struct matrix *
  6. m_transpose(mat)
  7. register struct matrix *mat;
  8. {
  9. register struct matrix *result;
  10. register int row, col;
  11.  
  12. m_create(result, mat->m_cols, mat->m_rows);
  13.  
  14. for (row = 0; row < mat->m_rows; row++)
  15.     for (col = 0; col < mat->m_cols; col++)
  16.         m_v(result, col, row) = m_v(mat, row, col);
  17.  
  18. return(result);
  19. }